home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mebbs / fferror.lha / FFERROR.REX
OS/2 REXX Batch file  |  1992-06-07  |  761b  |  33 lines
  1. /* Program to Lharc an entire disk into separate files by directories */
  2. /* Tell Arexx to direct unknown commands to the DOS port */
  3.  
  4. ADDRESS COMMAND
  5.  
  6. say
  7. say center("FishFood Data Validator by Bob Scheel",76)
  8. say center("The Nervous System BBS",76)
  9. say center("1-305-226-8393 38400 baud HST",76)
  10. say center("1-305-554-9332 2400 baud",76)
  11. say center("FIDONET 1:135/309",76)
  12. say
  13. /* load a library if unsuccessfull bail out */
  14. t = addlib("rexxsupport.library",0,-30,0)
  15. do d = 0 to 6
  16.  mx = 0
  17.  fc = 'Fish:Fishcontents' || d
  18.  if Exists(fc) then
  19.  do
  20.   t = open(fc,fc,"Read")
  21.   say 'Beginning scan of' fc
  22.   do l=1 while eof(fc)=0
  23.    contents = readln(fc)
  24.    n = length(contents)
  25.    if n > 79 then
  26.     say contents
  27.    mx = max(mx,n)
  28.   end
  29.   say 'Max=' mx
  30.  end
  31. end
  32. exit
  33.